home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / label.gs < prev    next >
Text File  |  1998-04-23  |  355b  |  19 lines
  1. 'set strsiz 0.11 0.13'
  2. w = 0.11*3/2 + 0.02
  3. h = 0.11/2 + 0.02
  4. while (1) 
  5.   pull lab
  6.   if (lab='quit'); break; endif;
  7.   if (lab='200') 
  8.     'set string 1 c 7'
  9.   else 
  10.     'set string 1 c 4'
  11.   endif
  12.   'q pos'
  13.   x = subwrd(result,3)
  14.   y = subwrd(result,4)
  15.   'set line 0'
  16.   'draw recf '%(x-w)%' '%(y-h)%' '%(x+w)%' '%(y+h)
  17.   'draw string 'x' 'y' 'lab
  18. endwhile
  19.